home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / r174chtr.zip / RSB1CHTR.MRG < prev    next >
Text File  |  1992-07-27  |  2KB  |  51 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\1740704\RBBSSUB1.BAS to produce D:\SOURCE\RBBSSUB1.BAS
  3. * D:\1740704\RBBSSUB1.BAS:  Date 7-26-1992  Size 55569 bytes
  4. * ------------[ Created 07-27-1992 00:12:37 ]------------
  5. * REPLACING old line(s) by new
  6. 59791 IF FExists THEN _
  7.          IOErrorCount = 0 : _
  8.          CALL RBBSFind (FilName$,WasZ,WasY,WasM,WasD) : _
  9.          FExists = (WasZ = 0)
  10.       END SUB
  11. * ------[ first line different ]------
  12. * INSERTING new line(s)
  13. 59800 SUB OpenWrk9(ChatFileName$) STATIC
  14.       ON ERROR GOTO 65000
  15.       IF ZShareIt THEN
  16.          OPEN ChatFileName$ FOR RANDOM ACCESS READ WRITE SHARED AS #9 LEN = 128
  17.        ELSE
  18.          OPEN ChatFileName$ FOR RANDOM AS #9 LEN = 128
  19.       END IF
  20.       END SUB
  21. 59810 SUB LockIt9 (Record, ReadIt) STATIC                            ' CHAT0805
  22.       ON ERROR GOTO 65000                                            ' CHAT0805
  23.       if ZNetworkType = 4 then
  24.          call DVLock("CHAT")
  25.       end if
  26.       if ZNetworkType <> 4 then LOCK 9, Record                                                 ' CHAT0805
  27.       IF ReadIt THEN                                                 ' CHAT0805
  28.          GET 9, Record                                               ' CHAT0805
  29.        ELSE                                                          ' CHAT0805
  30.          PUT 9, Record                                               ' CHAT0805
  31.       END IF                                                         ' CHAT0805
  32.       if ZNetworkType = 4 then
  33.          call DVUnlock("CHAT")
  34.       end if
  35.       if ZNetworkType <> 4 then UNLOCK 9, Record                                                 ' CHAT0805
  36.       END SUB                                                        ' CHAT0805
  37.  
  38. '  $SUBTITLE: 'Error Handling for chat routines'
  39. '  $PAGE
  40.  
  41.        IF ERL >= 59800 AND ERR = 70 THEN
  42.           RESUME NEXT                                                 'JM900304
  43.        END IF
  44. '
  45. '     CATCH ALL OTHER ERRORS
  46. '
  47. '
  48. ' Error handling for the separately compiled subroutines of RBBS-PC
  49. '
  50. '
  51.